home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / anidone / contour / contour.ctl < prev    next >
Text File  |  1995-05-02  |  1KB  |  56 lines
  1. ; CAD-3D CONTOUR object maker
  2. ; By Dan Reifsnyder
  3. ;
  4. ;The guts of this file are from Tom Hudson's FUNCTION.CTL
  5.  
  6. alert "CONTOUR generator|by Dan Reifsnyder"
  7.  
  8. status totv,usev,totf,usef,totob
  9. availv=totv-usev:availf=totf-usef
  10.  
  11. @GETCOLOR
  12. input "      Enter grid color (1-15)",color:color=int(color)
  13. if color<1 | color>15 then bell:goto GETCOLOR
  14.  
  15. @GETGRID
  16. fopen "A:\TOPO.DAT"
  17. FREAD grid
  18.  
  19. verts=grid*grid:faces=(grid-1)*(grid-1)*2
  20. if verts>availv | faces>availf then bell:alert "Grid too big!":end
  21.  
  22. @GETSCALE
  23. fread sc
  24.  
  25. @GETFACTOR
  26. input "     z-scaling factor% (10-100)",zscale
  27. if zscale<10 | zscale>100 then bell:goto GETFACTOR
  28. zscale=zscale/100
  29.  
  30.  
  31. gstart=-(grid-1)/2*sc:gend=-gstart+sc/2
  32. realstep=8000/(grid-1)
  33.  
  34. vertix=0
  35. realx=-4000:for X=gstart to gend step sc
  36. realy=-4000:for Y=gstart to gend step sc
  37. fread Z
  38. Z=Z*zscale
  39. addvertex vertix,realx,realy,Z:vertix=vertix+1
  40. realy=realy+realstep:next Y
  41. realx=realx+realstep:next X
  42.  
  43. ; BUILD FACES (VIEW FROM TOP ONLY)
  44.  
  45. faceix=0
  46. for X=0 to grid-2
  47. for Y=0 to grid-2
  48. base=X+Y*grid
  49. addface faceix,base,base+grid,base+grid+1,1,1,0,color
  50. addface faceix+1,base,base+grid+1,base+1,0,1,1,color
  51. faceix=faceix+2
  52. next Y
  53. next X
  54.  
  55. upload CONTOUR,vertix,faceix:clrgrp:select CONTOUR:home:bell:end
  56.